% from the PSRM 3rd edition
/BeginEPSF {							%def
	/b4_Inc_state save def			% Save state for cleanup
	/dict_count countdictstack def	% Count objects on dict stack
	/op_count count 1 sub def		% Count objects on operand stack
	userdict begin					% Push userdict on dict stack
	/showpage { } def				% Redefine showpage, { } = null proc
	0 setgray 0 setlinecap			% Prepare graphics state
	1 setlinewidth 0 setlinejoin
	10 setmiterlimit [ ] 0 setdash newpath
	/languagelevel where			% If level not equal to 1 then
	{pop languagelevel				% set strokeadjust and
	1 ne							% overprint to their defaults.
		{false setstrokeadjust false setoverprint
		} if
	} if
} bind def

/EndEPSF { %def
	count op_count sub {pop} repeat	% Clean up stacks
	countdictstack dict_count sub {end} repeat
	b4_Inc_state restore
} bind def
